  JP  LP00

COPY_B_G0:
  LD  L,255
  LD  A,1
  JR  COPY_MAIN

COPY_B_G:
  LD  L,10010010B
  LD  A,8
COPY_MAIN
  LD  (WKDE),DE

  DO  A {
  PUSH  AF
  PUSH  BC
  LD  A,(WKDE)
  LD  E,A
  CALL  COPY0
  RLC L
  SET 7,L
  POP BC
  POP AF
  }
  RET

COPY0:
  DB  $FD
  LD  H,8
COPY1:
  LD  A,(